home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
FILES.SWG
/
0007_FILEXIST.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
586b
|
31 lines
{ 1 }
Function FileExist(FileName : String) : Boolean;
begin
FileExist := (FSearch(FileName, '') <> '')
end; (* FileExist. *)
{ 2 }
Function FileExist(FileName : String) : Boolean;
Var
SRec : SearchRec;
begin
FindFirst(FileName, AnyFile, SRec);
FileExist := (DosError = 0);
end;
{ 3 }
Function FileExists(FileName : String) : Boolean;
Var
DirInfo : SearchRec;
begin
FindFirst(FileName, AnyFile, DirInfo);
if (DosError = 0) then
FileExists := True
else
FileExists := False;
end;